Uses Shellapi;
ShowWindow(FindWindow('progman',nil),1);    to show
ShowWindow(FindWindow('progman',nil),0);    to hide
EnableWindow(FindWindow('shell_traywnd',nil),True); to enable desktop
EnableWindow(FindWindow('shell_traywnd',nil),False); to disable desktop